home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Mask0Copy.AMOS / Mask0Copy.amosSourceCode
Encoding:
AMOS Source Code  |  1996-03-22  |  683 b   |  26 lines
  1. Load Iff "dh1:grafik/dpaint/picture/misc/A500.iff",0
  2. Wait Vbl 
  3. WX=Screen Width : WY=Screen Height : AC=Screen Colour : PL= Extension_8_0506(AC)
  4. ' Target screen
  5. Screen Open 1,WX,WY,AC,0
  6. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  7. Get Palette 0
  8. ' Temporary bitplane 
  9. Screen Open 7,WX,WY,2,0 : Screen Hide 
  10. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  11.  Extension_8_128A 7
  12. ' Create mask: 
  13.  Extension_8_121C 7,0
  14. For A=0 To PL-1
  15.    Extension_8_12EE 0,A,7,0 To 7,0,%11111100
  16. Next 
  17. ' Change background of target screen 
  18. Screen 1
  19. For Y=0 To WY-1
  20.   Ink Y/4 : Draw 0,Y To WX,Y
  21. Next 
  22. ' Copy with mask only
  23. For A=0 To PL-1
  24.    Extension_8_1318 0,A,1,A,7,0 To 1,A,%11110100
  25. Next 
  26. Screen To Front